home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 031-040 / amok40 / environment / mpgad.mod < prev    next >
Text File  |  1993-11-04  |  6KB  |  148 lines
  1. IMPLEMENTATION MODULE MPGad;
  2. (*---------------------------------------------------------------------------
  3.    :Program.    MPGad.Mod
  4.    :Version.    3.3
  5.    :History.    Mar-90
  6.    :Author.     Markus Peuckert
  7.    :Address.    Schützenstr. 50, D-3550 Marburg, West-Germany,
  8.    :Copyright.  ShareWare
  9.    :Language.   Modula-2
  10.    :Translator. M2Amiga V3.3d
  11. ---------------------------------------------------------------------------*)
  12.  
  13. FROM SYSTEM    IMPORT    ADR, INLINE;
  14. FROM Intuition     IMPORT    boolGadget, strGadget, Gadget, Border, StringInfo,
  15.             IntuiText, ActivationFlags, ActivationFlagSet;
  16. FROM Graphics    IMPORT    Move, Draw, Text, SetAPen, RastPortPtr;
  17. FROM IntuiSup    IMPORT     InitIText, InitBorder, CreateGadget, InitStringInfo;
  18.  
  19.  
  20. VAR   CommBord, DebugBord, ParamBord                : Border;
  21.  
  22.       SaveGad, CompilGad, LinkerGad, LoaderGad, EditGad        : Gadget;
  23.  
  24.       CompText, LinkText, DebugText, RunText, ExText, EdText,
  25.       LoadText, SaveText, PopText, MakeText,
  26.       CompilText, LinkerText,LoaderText, PrgText, EditText    : IntuiText;
  27.  
  28.       CompilInfo, LinkerInfo, LoaderInfo, PrgInfo, EditInfo    : StringInfo;
  29.  
  30.       CompilUnbuf, LinkerUnbuf,
  31.       LoaderUnbuf, PrgUnbuf, EditUnbuf                : BufStrTyp;
  32.  
  33.  
  34. PROCEDURE xyCommand;    (* $E- *)
  35. BEGIN
  36.  INLINE (0,0, 60,0, 60,11, 0,11, 0,0)
  37. END xyCommand;
  38.  
  39. PROCEDURE xyDebug;     (* $E- *)
  40. BEGIN
  41.  INLINE (0,0, 85,0, 85,11, 0,11, 0,0)
  42. END xyDebug;
  43.  
  44. PROCEDURE xyParam;    (* $E- *)
  45. BEGIN
  46.  INLINE (0,0, 385,0, 385,10, 0,10, 0,0)
  47. END xyParam;
  48.  
  49. PROCEDURE MakeGadgets;
  50. BEGIN
  51.  InitBorder (CommBord,  ADR(xyCommand), NIL);
  52.  InitBorder (DebugBord, ADR(xyDebug),   NIL);
  53.  InitBorder (ParamBord, ADR(xyParam),   NIL);
  54.  
  55.  InitIText (CompText,  1,1,  ADR("Compile"));
  56.  InitIText (LinkText,  13,1, ADR("Link"));
  57.  InitIText (DebugText, 2,1,  ADR("Load/Debug"));
  58.  InitIText (RunText,   18,1, ADR("Run"));
  59.  InitIText (ExText,    1,1,  ADR("Execute"));
  60.  InitIText (EdText,    15,1, ADR("Edit"));
  61.  InitIText (PopText,   18,1, ADR("Pop"));
  62.  InitIText (MakeText,  18,1, ADR("ALT"));
  63.  InitIText (LoadText,  15,1, ADR("Load"));
  64.  InitIText (SaveText,  15,1, ADR("Save"));
  65.  
  66.  InitStringInfo (CompilInfo, CompilBuf, CompilUnbuf);
  67.  InitStringInfo (LinkerInfo, LinkerBuf, LinkerUnbuf);
  68.  InitStringInfo (LoaderInfo, LoaderBuf, LoaderUnbuf);
  69.  InitStringInfo (PrgInfo, PrgBuf, PrgUnbuf);
  70.  InitStringInfo (EditInfo, EditBuf, EditUnbuf);
  71.  
  72.  CreateGadget (EditGad, 98,70, 385,10, editgad, strGadget, NIL,
  73.          ADR(EditInfo), ADR(ParamBord), NIL,
  74.          ActivationFlagSet{gadgImmediate,relVerify,toggleSelect});
  75.  CreateGadget (PrgGad, 98,54, 385,10, prggad, strGadget, ADR(EditGad),
  76.          ADR(PrgInfo), ADR(ParamBord), NIL,
  77.          ActivationFlagSet{gadgImmediate,relVerify,toggleSelect});
  78.  CreateGadget (LoaderGad, 98,38, 385,10, loadergad, strGadget, ADR(PrgGad),
  79.          ADR(LoaderInfo), ADR(ParamBord), NIL,
  80.          ActivationFlagSet{gadgImmediate,relVerify,toggleSelect});
  81.  CreateGadget (LinkerGad, 98,22, 385,10, linkergad, strGadget, ADR(LoaderGad),
  82.          ADR(LinkerInfo), ADR(ParamBord), NIL,
  83.          ActivationFlagSet{gadgImmediate,relVerify,toggleSelect});
  84.  CreateGadget (CompilGad, 98,6, 385,10, compilgad, strGadget, ADR(LinkerGad),
  85.          ADR(CompilInfo), ADR(ParamBord), NIL,
  86.          ActivationFlagSet{gadgImmediate,relVerify,toggleSelect});
  87.  
  88.  CreateGadget (SaveGad, 337,90, 60,11, savegad, boolGadget, ADR(CompilGad), NIL,
  89.          ADR(CommBord), ADR(SaveText),
  90.          ActivationFlagSet{gadgImmediate,relVerify});
  91.  CreateGadget (LoadGad, 107,90, 60,11, loadgad, boolGadget, ADR(SaveGad), NIL,
  92.          ADR(CommBord), ADR(LoadText),
  93.          ActivationFlagSet{gadgImmediate,relVerify});
  94. CreateGadget (MakeGad, 10,90, 60,11, makegad, boolGadget, ADR(LoadGad), NIL,
  95.          ADR(CommBord), ADR(MakeText),
  96.          ActivationFlagSet{gadgImmediate,relVerify,toggleSelect});
  97.  
  98.  CreateGadget (PopGad, 425,5, 60,11, popgad, boolGadget, NIL, NIL,
  99.          ADR(CommBord), ADR(PopText),
  100.          ActivationFlagSet{gadgImmediate,relVerify});
  101.  CreateGadget (EdGad, 360,5, 60,11, edgad, boolGadget, ADR(PopGad), NIL,
  102.          ADR(CommBord), ADR(EdText),
  103.          ActivationFlagSet{gadgImmediate,relVerify});
  104.  CreateGadget (ExGad, 295,5, 60,11, exgad, boolGadget, ADR(EdGad), NIL,
  105.          ADR(CommBord), ADR(ExText),
  106.          ActivationFlagSet{gadgImmediate,relVerify});
  107.  CreateGadget (RunGad, 230,5, 60,11, rungad, boolGadget, ADR(ExGad), NIL,
  108.          ADR(CommBord), ADR(RunText),
  109.          ActivationFlagSet{gadgImmediate,relVerify});
  110.  CreateGadget (DebugGad, 140,5, 85,11, debuggad, boolGadget, ADR(RunGad), NIL,
  111.          ADR(DebugBord), ADR(DebugText),
  112.          ActivationFlagSet{gadgImmediate,relVerify});
  113.  CreateGadget (LinkGad, 75,5, 60,11, linkgad, boolGadget, ADR(DebugGad), NIL,
  114.          ADR(CommBord), ADR(LinkText),
  115.          ActivationFlagSet{gadgImmediate,relVerify});
  116.  CreateGadget (CompGad, 10,5, 60,11, compgad, boolGadget, ADR(LinkGad), NIL,
  117.          ADR(CommBord), ADR(CompText),
  118.          ActivationFlagSet{gadgImmediate,relVerify});
  119. END MakeGadgets;
  120.  
  121. PROCEDURE InitBuffers;
  122. BEGIN
  123.  CompilBuf:=""; LinkerBuf:=""; LoaderBuf:=""; PrgBuf:="";
  124.  EditBuf:="";
  125.  CompilUnbuf:=""; LinkerUnbuf:=""; LoaderUnbuf:="";
  126.  PrgUnbuf:=""; EditUnbuf:="";
  127. END InitBuffers;
  128.  
  129. PROCEDURE DrawText (rPort : RastPortPtr);
  130. BEGIN
  131.  SetAPen (rPort, 3);
  132.  Move (rPort, 10, 12); Text (rPort, ADR("Compiler :"), 10);
  133.  Move (rPort, 10, 28); Text (rPort, ADR("Linker   :"), 10);
  134.  Move (rPort, 10, 44); Text (rPort, ADR("Loader   :"), 10);
  135.  Move (rPort, 10, 60); Text (rPort, ADR("Program  :"), 10);
  136.  Move (rPort, 10, 76); Text (rPort, ADR("Editor   :"), 10);
  137.  Move (rPort, 5, 85); Draw (rPort, 487, 85);
  138.  Move (rPort, 200,97); Text (rPort, ADR("Compi.config"), 12);
  139. END DrawText;
  140.  
  141.  
  142. BEGIN
  143.  
  144.  InitBuffers;
  145.  MakeGadgets;
  146.  
  147. END MPGad.Mod
  148.